home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / GRAPHICS / TOOLS / DRAWSTRIP / !DrawStrip_!Run < prev    next >
Encoding:
Text File  |  1989-08-05  |  384 b   |  13 lines
  1. | DrawStrip
  2. if "<System$Path>" = "" then Error 0 System resources cannot be found
  3. if "<Font$Prefix>" = "" then Error 0 Fonts cannot be found 
  4.  
  5. | Usethe next 2 lines if you want to set the fontsize
  6. | copy MemAlloc into !System.modules first
  7. |RMEnsure MemAlloc 0 System:modules.MemAlloc
  8. |Fontsize 128
  9.  
  10. WimpSlot -min 48K -max 48K
  11. IconSprites <Obey$Dir>.!Sprites
  12. Run <Obey$Dir>.!RunImage
  13.